| ExpandAllNodesActionExecute method |
Applies to
TDUnitDialog
Declaration
Procedure ExpandAllNodesActionExecute(Sender: TObject);Implementation
procedure TDUnitDialog.ExpandAllNodesActionExecute(Sender: TObject);
begin
TestTree.FullExpand;
if (TestTree.Selected <> nil) then
TestTree.Selected.MakeVisible
else if(TestTree.Items.Count > 0) then
TestTree.Selected := TestTree.Items[0];
End; |
|
|